﻿Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim userid = Request.QueryString("fromid")
        Dim usertoid = Request.QueryString("toid")

        For i As Integer = 1 To 100
            Dim o As New ChatClient.ChatUser
            o.ID = i
            o.Name = "Name " & o.ID

            Dim p As New ChatClient.ChatUser
            p.ID = 100 - i
            p.Name = "Name " & p.ID

            ChatClient.ChatManager.PostChat(o, p, "message " & i)

        Next


    End Sub

End Class